home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol025 / crash2.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  768 b   |  26 lines
  1. 10 REM  ** Demonstrate collision sound
  2. 20 REM  ** show visual action with sound
  3. 40 CLS:KEY OFF
  4. 45 LOCATE 25,14,0:PRINT "<esc> = exit"
  5. 50 SCREEN 1,0
  6. 60 LOCATE 25,14,0:PRINT "<esc> = exit"
  7. 65 ' ******************   COLOR 5,1
  8. 70 FOR EXPL=1 TO 100
  9. 80    SOUND 47+EXPL,1
  10. 90    CIRCLE(160,100),EXPL,1
  11. 99 GOSUB 300
  12. 100   NEXT
  13. 110 FOR EXPL=100 TO 1 STEP -2
  14. 120   SOUND 47+EXPL,1
  15. 130   CIRCLE(160,100),EXPL,0
  16. 139 GOSUB 300
  17. 140   NEXT
  18. 150 FOR EXPL=99 TO 1 STEP -2
  19. 160   CIRCLE(160,100),EXPL,0
  20. 169 GOSUB 300
  21. 170   NEXT
  22. 175 GOTO 40
  23. 300 A$=INKEY$:IF A$=CHR$(27)THEN 310 ELSE RETURN
  24. 310 LOCATE 13,18,0:PRINT " bye ":FOR N=1 TO 2000:NEXT :SCREEN 0,0,0:WIDTH 80:END
  25. $=INKEY$:IF A$=CHR$(27)THEN 310 ELSE RETURN
  26. 310 LOCATE 13,18,0:PRINT " bye ":FOR N=1 TO 2000